MODULE TareasPuras ;
	FROM InOut IMPORT WriteLn, WriteString ;
	PROCEDURE Tarea1 ;
		BEGIN
			WriteLn ;
			WriteString("Esta frase se escribe desde el procedimiento Tarea1" ) ;
			WriteLn ;
		END Tarea1 ;
	PROCEDURE Tarea2 ;
		BEGIN
		WriteLn ;
		WriteString("Esta frase se escribe desde el procedimiento Tarea2" ) ;
		WriteLn ;
		END Tarea2 ;
	BEGIN
		Tarea1 ;
		Tarea2 ;
END TareasPuras.